home *** CD-ROM | disk | FTP | other *** search
/ Freelog 15 / FREELOG 15.ISO / WebMaster / Perl / PERL5106.ZIP / perl5 / ntt / NT / unsupported.ntt < prev   
Encoding:
Text File  |  1996-01-31  |  2.7 KB  |  123 lines
  1. #Portions (c) 1995 Microsoft Corporation. All rights reserved. 
  2. #        Developed by hip communications inc., http://info.hip.com/info/
  3.  
  4. # test script to verify that unsupported functions are really unsupported
  5. # functions commented out require changes to core code.
  6.  
  7.  
  8. if( Win32::IsWin95() ){
  9.         print"1..1\nok 1\n";
  10.         die "This test does not work on windows 95\n";
  11. }
  12.  
  13.  
  14.  
  15.  
  16. @functions = (
  17. 'alarm( $x )',
  18. #'chmod( $x,$x )',
  19. 'chroot( $x )',
  20. 'crypt( $x,$x )',
  21. #'dbmclose( %x )',
  22. #'dbmopen( %x,$x,$x )',
  23. #'dump ()',
  24. #'fcntl( S,$x,$x )',
  25. #'flock( $x,$x )',
  26. 'fork ()',
  27. 'getpgrp( $x )',
  28. 'getppid ()',
  29. 'getpriority( $x,$x )',
  30. 'getpwnam( $x )',
  31. 'getgrnam( $x )',
  32. 'getpwuid( $x )',
  33. 'getgrgid( $x )',
  34. 'getpwent ()',
  35. 'getgrent ()',
  36. 'setpwent ()',
  37. 'setgrent ()',
  38. 'endpwent ()',
  39. 'endgrent ()',
  40. #'ioctl( S,$x,$x )',
  41. 'kill( $x,$x )',
  42. 'link( $x,$x )',
  43. #'lstat( $x )',
  44. 'msgctl( $x,$x,$x )',
  45. 'msgget( $x,$x )',
  46. 'msgrcv( $x,$x,$x,$x,$x )',
  47. 'msgsnd( $x,$x,$x )',
  48. #'pipe( $x,$x )',
  49. #'readlink( $x )',
  50. #'select( $x,$x,$x,$x )',
  51. 'semctl( $x,$x,$x,$x )',
  52. 'semget( $x,$x,$x )',
  53. 'semop( $x,$x )',
  54. 'setpgrp( $x,$x )',
  55. 'setpriority( $x,$x,$x )',
  56. 'shmctl( $x,$x,$x )',
  57. 'shmget( $x,$x,$x )',
  58. 'shmread( $x,$x,$x,$x )',
  59. 'shmwrite( $x,$x,$x,$x )',
  60. 'symlink( $x,$x )',
  61. 'syscall( $x,$x,$x )',
  62. #'sysread( $x,$x,$x,$x )',
  63. #'sysread( $x,$x,$x )',
  64. #'syswrite( $x,$x,$x,$x )',
  65. #'syswrite( $x,$x,$x )',
  66. 'times ()',
  67. #'umask ()',
  68. #'utime( $x,$x )',
  69. 'wait ()',
  70. 'waitpid( $x,$x )',
  71.  
  72. # socketroutines, commented out are supported.
  73.  
  74. #'accept( $x,$x )',
  75. #'bind( S,$x )',
  76. #'getpeername( S )',
  77. #'gethostbyname( $x )',
  78. #'getprotobyname( $x )',
  79. #'getservbyname( $x,$x )',
  80. #'gethostbyaddr( $x,$x )',
  81. #'getprotobynumber( $x )',
  82. #'getservbyport( $x,$x )',
  83. #'gethostent ()',
  84. #'getsockname( S )',
  85. #'getsockopt( S,$x,$x )',
  86. #'listen( S,$x )',
  87. #'recv( $x,$x,$x,$x )',
  88. #'send( $x,$x,$x )',
  89. #'send( $x,$x,$x,$x )',
  90. #'shutdown( S,$x )',
  91. #'socket( S,$x,$x,$x )',
  92.  
  93. 'getnetbyname( $x )',
  94. 'getnetbyaddr( $x,$x )',
  95. 'getnetent ()',
  96. 'getprotoent ()',
  97. 'getservent ()',
  98. 'sethostent( $x )',
  99. 'setnetent( $x )',
  100. 'setprotoent( $x )',
  101. 'setservent( $x )',
  102. 'endhostent ()',
  103. 'endnetent ()',
  104. 'endprotoent ()',
  105. 'endservent ()',
  106. 'socketpair( S,S,$x,$x,$x )',
  107.  
  108. );
  109.  
  110. print "1.." , $#functions + 1 , "\n";
  111. $i = 1;
  112. foreach $function ( @functions ) {
  113.     local( $f ) = $function if @ARGV;
  114.     $output = `perl -e "$function" 2>&1`;
  115.     if ( $? != 0 && $output =~
  116.         /(not implemented|not supported|unimplemented|unsupported)/i ) {
  117.         print "ok " , $i++, " $f", "\n";
  118.     } else {
  119.         print "not ok ", $i++, " $f", "\n";
  120.         print $output if @ARGV;
  121.     }
  122. }
  123.